home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tcppr1 / tcppro2.frm next >
Text File  |  1999-07-08  |  27KB  |  837 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  6. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  7. Begin VB.Form Form1 
  8.    BorderStyle     =   1  'Fixed Single
  9.    Caption         =   "TCP Pro2"
  10.    ClientHeight    =   5610
  11.    ClientLeft      =   45
  12.    ClientTop       =   330
  13.    ClientWidth     =   7755
  14.    Icon            =   "tcppro2.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   5610
  18.    ScaleWidth      =   7755
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin MSWinsockLib.Winsock Winsock1 
  21.       Left            =   0
  22.       Top             =   5160
  23.       _ExtentX        =   741
  24.       _ExtentY        =   741
  25.       _Version        =   393216
  26.    End
  27.    Begin TabDlg.SSTab SSTab1 
  28.       Height          =   5415
  29.       Left            =   120
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   7575
  33.       _ExtentX        =   13361
  34.       _ExtentY        =   9551
  35.       _Version        =   393216
  36.       Style           =   1
  37.       Tabs            =   4
  38.       TabsPerRow      =   4
  39.       TabHeight       =   520
  40.       TabCaption(0)   =   "Directions"
  41.       TabPicture(0)   =   "tcppro2.frx":030A
  42.       Tab(0).ControlEnabled=   -1  'True
  43.       Tab(0).Control(0)=   "Label4"
  44.       Tab(0).Control(0).Enabled=   0   'False
  45.       Tab(0).Control(1)=   "Line1"
  46.       Tab(0).Control(1).Enabled=   0   'False
  47.       Tab(0).Control(2)=   "Label2"
  48.       Tab(0).Control(2).Enabled=   0   'False
  49.       Tab(0).Control(3)=   "Label1"
  50.       Tab(0).Control(3).Enabled=   0   'False
  51.       Tab(0).Control(4)=   "Image2"
  52.       Tab(0).Control(4).Enabled=   0   'False
  53.       Tab(0).Control(5)=   "Command5"
  54.       Tab(0).Control(5).Enabled=   0   'False
  55.       Tab(0).ControlCount=   6
  56.       TabCaption(1)   =   "TCP/IP Connection Setup"
  57.       TabPicture(1)   =   "tcppro2.frx":0326
  58.       Tab(1).ControlEnabled=   0   'False
  59.       Tab(1).Control(0)=   "Frame1"
  60.       Tab(1).Control(0).Enabled=   0   'False
  61.       Tab(1).Control(1)=   "Frame2"
  62.       Tab(1).Control(1).Enabled=   0   'False
  63.       Tab(1).Control(2)=   "Option1"
  64.       Tab(1).Control(2).Enabled=   0   'False
  65.       Tab(1).Control(3)=   "Option2"
  66.       Tab(1).Control(3).Enabled=   0   'False
  67.       Tab(1).Control(4)=   "Label5"
  68.       Tab(1).Control(4).Enabled=   0   'False
  69.       Tab(1).Control(5)=   "Label6"
  70.       Tab(1).Control(5).Enabled=   0   'False
  71.       Tab(1).Control(6)=   "lblstatus"
  72.       Tab(1).Control(6).Enabled=   0   'False
  73.       Tab(1).Control(7)=   "Image4"
  74.       Tab(1).Control(7).Enabled=   0   'False
  75.       Tab(1).ControlCount=   8
  76.       TabCaption(2)   =   "TCP Pro2 Chat"
  77.       TabPicture(2)   =   "tcppro2.frx":0342
  78.       Tab(2).ControlEnabled=   0   'False
  79.       Tab(2).Control(0)=   "Image1"
  80.       Tab(2).Control(0).Enabled=   0   'False
  81.       Tab(2).Control(1)=   "Label10"
  82.       Tab(2).Control(1).Enabled=   0   'False
  83.       Tab(2).Control(2)=   "txtCHAT"
  84.       Tab(2).Control(2).Enabled=   0   'False
  85.       Tab(2).Control(3)=   "CommonDialog1"
  86.       Tab(2).Control(3).Enabled=   0   'False
  87.       Tab(2).Control(4)=   "txtstatus"
  88.       Tab(2).Control(4).Enabled=   0   'False
  89.       Tab(2).Control(5)=   "Command3"
  90.       Tab(2).Control(5).Enabled=   0   'False
  91.       Tab(2).Control(6)=   "txtmsg"
  92.       Tab(2).Control(6).Enabled=   0   'False
  93.       Tab(2).ControlCount=   7
  94.       TabCaption(3)   =   "Options"
  95.       TabPicture(3)   =   "tcppro2.frx":035E
  96.       Tab(3).ControlEnabled=   0   'False
  97.       Tab(3).Control(0)=   "Command6"
  98.       Tab(3).Control(0).Enabled=   0   'False
  99.       Tab(3).Control(1)=   "txtlocal"
  100.       Tab(3).Control(1).Enabled=   0   'False
  101.       Tab(3).Control(2)=   "Command1"
  102.       Tab(3).Control(2).Enabled=   0   'False
  103.       Tab(3).Control(3)=   "Command2"
  104.       Tab(3).Control(3).Enabled=   0   'False
  105.       Tab(3).Control(4)=   "Command4"
  106.       Tab(3).Control(4).Enabled=   0   'False
  107.       Tab(3).Control(5)=   "txtversion"
  108.       Tab(3).Control(5).Enabled=   0   'False
  109.       Tab(3).Control(6)=   "txtcomp"
  110.       Tab(3).Control(6).Enabled=   0   'False
  111.       Tab(3).Control(7)=   "Inet1"
  112.       Tab(3).Control(7).Enabled=   0   'False
  113.       Tab(3).Control(8)=   "Label13"
  114.       Tab(3).Control(8).Enabled=   0   'False
  115.       Tab(3).Control(9)=   "Label12"
  116.       Tab(3).Control(9).Enabled=   0   'False
  117.       Tab(3).Control(10)=   "Label11"
  118.       Tab(3).Control(10).Enabled=   0   'False
  119.       Tab(3).Control(11)=   "Image5"
  120.       Tab(3).Control(11).Enabled=   0   'False
  121.       Tab(3).ControlCount=   12
  122.       Begin VB.CommandButton Command6 
  123.          Caption         =   "< Back to chat"
  124.          Height          =   375
  125.          Left            =   -74880
  126.          TabIndex        =   31
  127.          Top             =   4860
  128.          Width           =   1455
  129.       End
  130.       Begin VB.TextBox txtlocal 
  131.          BackColor       =   &H80000000&
  132.          Height          =   3255
  133.          Left            =   -74880
  134.          Locked          =   -1  'True
  135.          MultiLine       =   -1  'True
  136.          ScrollBars      =   2  'Vertical
  137.          TabIndex        =   30
  138.          Top             =   1500
  139.          Width           =   7335
  140.       End
  141.       Begin VB.CommandButton Command1 
  142.          Caption         =   "Close Current Connection"
  143.          Height          =   375
  144.          Left            =   -69720
  145.          TabIndex        =   29
  146.          Top             =   4860
  147.          Width           =   2175
  148.       End
  149.       Begin VB.CommandButton Command2 
  150.          Caption         =   "Save Chat"
  151.          Height          =   375
  152.          Left            =   -73320
  153.          TabIndex        =   28
  154.          Top             =   4860
  155.          Width           =   1335
  156.       End
  157.       Begin VB.CommandButton Command4 
  158.          Caption         =   "Check for new version"
  159.          Height          =   375
  160.          Left            =   -71880
  161.          TabIndex        =   27
  162.          Top             =   4860
  163.          Width           =   2055
  164.       End
  165.       Begin VB.TextBox txtversion 
  166.          Height          =   285
  167.          Left            =   -71640
  168.          Locked          =   -1  'True
  169.          TabIndex        =   26
  170.          Top             =   900
  171.          Width           =   2775
  172.       End
  173.       Begin VB.TextBox txtcomp 
  174.          Height          =   285
  175.          Left            =   -71640
  176.          MaxLength       =   20
  177.          TabIndex        =   25
  178.          Text            =   "Friend"
  179.          Top             =   540
  180.          Width           =   2775
  181.       End
  182.       Begin VB.Frame Frame1 
  183.          Caption         =   "Server:"
  184.          Height          =   3015
  185.          Left            =   -74880
  186.          TabIndex        =   14
  187.          Top             =   1260
  188.          Width           =   3615
  189.          Begin VB.TextBox txtserverport 
  190.             Height          =   285
  191.             Left            =   1320
  192.             TabIndex        =   16
  193.             Text            =   "5001"
  194.             Top             =   360
  195.             Width           =   2175
  196.          End
  197.          Begin VB.CommandButton cmdlisten 
  198.             Caption         =   "&Listen"
  199.             Height          =   375
  200.             Left            =   840
  201.             TabIndex        =   15
  202.             Top             =   1560
  203.             Width           =   1935
  204.          End
  205.          Begin VB.Label Label7 
  206.             Caption         =   "Port to listen on:"
  207.             Height          =   255
  208.             Left            =   120
  209.             TabIndex        =   17
  210.             Top             =   360
  211.             Width           =   1215
  212.          End
  213.       End
  214.       Begin VB.Frame Frame2 
  215.          Caption         =   "Client:"
  216.          Enabled         =   0   'False
  217.          Height          =   3015
  218.          Left